program listaPessoas;
uses crt;

const MAX = 300;

type
   tpPessoa = record
      nome : string[50];
      idade : integer;
      telefone : string;
   end;

var
   tpPessoa : array[1..300] of string;
   i, j : integer;
   opcao : char;

begin

    tam := 0;
    repeat
       clrscr;
       writeln(


    until opcao = 0;
    readkey;
end.